input <- mtcars[,c("am","cyl","hp","wt")]
am.data <- glm(formula = am ~ cyl + hp + wt, data = input, family = binomial)
